home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_19_(11-1984).d64 / dec disk label (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  605b  |  28 lines
  1. 10 PRINTCHR$(14):POKE53281,0:POKE53280,11:POKE646,1
  2. 15 DN$="[196][197][195][197][205][194][197][210] [196][201][211][203]"
  3. 25 REM INPUT"DATE: ";DA$
  4. 30 REM INPUT"DISK NAME: ";DN$
  5. 35 REM INPUT"DISK ID: ";ID$
  6. 40 REM INPUT"CATALOG NUMBER: ";CA$
  7. 50 REM INPUT"COPY NUMBER: ";CO$
  8. 60 SP=(20-LEN(DN$))/2
  9. 90 OPEN4,4,7
  10. 95 REM PRINT#4,"  "
  11. 100 PRINT#4,"        [195]OMMODORE [213]SERS OF [206]ORMAN     "
  12. 105 REM PRINT#4,"  "
  13. 107 PRINT#4,"  "
  14. 110 PRINT#4,CHR$(14):PRINT#4,SPC(SP)DN$:PRINT#4,CHR$(20)
  15. 140 REM PRINT#4,"  "
  16. 150 PRINT#4,"  "
  17. 155 PRINT#4,"  12/7/83                        [201][196]: [205]3"
  18. 156 PRINT#4,"           "
  19. 157 PRINT#4,"           "
  20. 160 PRINT#4:CLOSE4
  21. 170 PRINT"AGAIN?"
  22. 180 GETII$:IFII$="Y"THEN90
  23. 190 IFII$="N"THENEND
  24. 200 GOTO180
  25. 400 OPEN4,4,7
  26. 405 FORX=1TO10:PRINT#4,X:NEXTX
  27. 406 PRINT#4:CLOSE4
  28.